10 A$="BASIC-SCROLLER WRITTEN 1994 BY MADROM!"
15 :
20 REM *** INITIALISIEREN
25 A=1:E=199:PRINTCHR$(147):D=LEN(A$):POKE53281,.:POKE53280,.
30 C=.:FORI=41960TO41967:POKE820+C,PEEK(I):C=C+1:NEXT:POKE824,200:POKE827,96
35 :
40 REM *** SCROLL-MAIN-ROUTINE
45 E=E-.5:POKE53270,E:ON-(E<>192)GOTO45:E=199:POKE90,1:POKE91,4:POKE88,.
50 POKE89,4:POKE782,.:POKE53265,.:POKE53270,E:SYS820:POKE53265,27:POKE781,.
55 POKE782,39:SYS58636:PRINTMID$(A$,A,1):A=A+1:ON-(A-3<>D)GOTO45:A=1:GOTO45